home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / demos / actdemo.dir / 00020_Exit.ls < prev    next >
Encoding:
Text File  |  1995-12-13  |  725 b   |  35 lines
  1. on mouseDown
  2.   puppetSound("ExitB")
  3.   puppetSprite(14, 1)
  4.   set the castNum of sprite 14 to 40
  5.   updateStage()
  6.   startTimer()
  7.   repeat while the timer < 15
  8.     nothing()
  9.   end repeat
  10.   set the castNum of sprite 14 to 41
  11.   updateStage()
  12.   startTimer()
  13.   repeat while the timer < 15
  14.     nothing()
  15.   end repeat
  16.   set the castNum of sprite 14 to 40
  17.   updateStage()
  18.   startTimer()
  19.   repeat while the timer < 15
  20.     nothing()
  21.   end repeat
  22.   set the castNum of sprite 14 to 41
  23.   updateStage()
  24.   puppetSprite(14, 0)
  25.   repeat with x = 1 to 48
  26.     if the type of sprite x > 0 then
  27.       set the locV of sprite x to -500
  28.     end if
  29.   end repeat
  30.   puppetTransition(50, 0, 12)
  31.   updateStage()
  32.   puppetTransition(0)
  33.   go("disclaimer")
  34. end
  35.